home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / rem_acc / listv10.zip / LISTER.25X < prev    next >
Text File  |  1996-04-13  |  5KB  |  210 lines
  1. ; RA-Lister v1.0 - RA 2.5x version
  2. ; (C) 1996 by Jason Raphael (1:284/22)
  3.  
  4. :START
  5. Assign 29 
  6. Assign 30
  7. Display "                                 RA-Lister v1.0                                 "
  8. Display "||                              V) View BBS listing"
  9. Display "|                              A) Add BBS to listing"
  10. Display "|                              Q) Quit RA-Lister"
  11. Display "||Type your selection now (V,A,Q)-> "
  12. GetChoice VAQ 1
  13.  
  14. If 1 = "V"
  15. DisplayFile LISTER
  16. Goto START
  17. EndIf
  18.  
  19. If 1 = "A"
  20. Goto ADDBBS
  21. EndIf
  22.  
  23. If 1 = "Q"
  24. Goto END
  25. EndIf
  26.  
  27. :ADDBBS
  28. Display "                                 RA-Lister v1.0                                 "
  29. Display "|What is the name of the BBS?|"
  30. Ask 30 20
  31. If 20 = ""
  32. Display "|Abort this entry? <y/n> "
  33. GetChoice YN 15
  34. If 15 = "Y"
  35. Goto ABORTED
  36. EndIf
  37. If 15 = "N"
  38. Assign 15 .
  39. Goto ADDBBS
  40. EndIf
  41. :PHONENUM
  42. Display "                                 RA-Lister v1.0                                 "
  43. Display "|What is the phone number of the BBS? (xxx-xxx-xxxx)|"
  44. Ask 12 21                              
  45. If 21 = ""
  46. Display "|Abort this entry? <y/n> "
  47. GetChoice YN 15
  48. If 15 = "Y"
  49. Goto ABORTED
  50. EndIf
  51. If 15 = "N"
  52. Assign 15 .
  53. Goto PHONENUM
  54. EndIf
  55. :BAUD
  56. Display "                                 RA-Lister v1.0                                 "
  57. Display "|What is the maximum baud rate of the BBS?|"
  58. Ask 5 22
  59. If 22 = ""
  60. Display "|Abort this entry? <y/n> "
  61. GetChoice YN 15
  62. If 15 = "Y"
  63. Goto ABORTED
  64. EndIf
  65. If 15 = "N"
  66. Assign 15 .
  67. Goto BAUD
  68. EndIf
  69. Display "                                 RA-Lister v1.0                                 "
  70. Display "|Answer Y or N to the following questions."
  71. Display "||Does the BBS have..."
  72. Display "|Online games? <y/n> "
  73. GetChoice YN 23
  74. If 23 = "Y"
  75. Assign 23 Online games
  76. EndIf
  77. If 23 = "N"
  78. Assign 23 [No online games]
  79. EndIf
  80. Display "|Files available to download? <y/n> "
  81. GetChoice YN 24
  82. If 24 = "Y"
  83. Assign 24 Files 
  84. EndIf
  85. If 24 = "N"
  86. Assign 24 [No files]
  87. EndIf
  88. Display "|Multinode chat? <y/n> "
  89. GetChoice YN 25
  90. If 25 = "Y"
  91. Assign 25 Multinode chat 
  92. EndIf
  93. If 25 = "N"
  94. Assign 25 [No multinode chat]
  95. EndIf
  96. Display "|A message base? <y/n> "
  97. GetChoice YN 26
  98. If 26 = "Y"
  99. Assign 26 Message base 
  100. EndIf
  101. If 26 = "N"
  102. Assign 26 [No message base]
  103. EndIf
  104. Display "|Any message networks, such as FidoNet? <y/n> "
  105. GetChoice YN 27
  106. If 27 = "Y"
  107. Assign 27 Message network(s) 
  108. EndIf
  109. If 27 = "N"
  110. Assign 27 [No message networks]
  111. EndIf
  112. Display "                                 RA-Lister v1.0                                 "
  113. Display "|Please enter any additional comments about the BBS now.  This might include any" 
  114. Display "|special features or unique items online.  You have three lines, no word wrap."
  115. Display "|You may omit this section if you wish by pressing ENTER on the first blank line.||" 
  116. Ask 55 28
  117. If 28 = ""
  118. Assign 28 [No comment entered]
  119. Goto VERIFY
  120. EndIf
  121. Ask 55 29
  122. Ask 55 30
  123. :VERIFY
  124. Display "                                 RA-Lister v1.0                                 "
  125. Display "|Information entered:|"
  126. Display "BBS name: " 
  127. ListAnswer 20
  128. Display "Phone number: " 
  129. ListAnswer 21
  130. Display "Maximum baud rate: " 
  131. ListAnswer 22
  132. Display "Features include: " 
  133. ListAnswer 23
  134. Display "                  "
  135. ListAnswer 24
  136. Display "                  "
  137. ListAnswer 25
  138. Display "                  "
  139. ListAnswer 26
  140. Display "                  "
  141. ListAnswer 27
  142. Display "Comments: " 
  143. ListAnswer 28
  144. ListAnswer 29
  145. ListAnswer 30
  146. Display "|Is this correct? <y/n>"
  147. GetChoice YN 31
  148. If 31 = "Y"
  149. Goto CORRECT
  150. EndIf
  151. If 31 = "N"
  152. Display "|Edit, abort, or continue? <E,A,C> "
  153. GetChoice EAC 15
  154. If 15 = "E"
  155. Assign 15 .
  156. Goto ADDBBS
  157. EndIf
  158. If 15 = "A"
  159. Goto ABORTED
  160. EndIf
  161. If 15 = "C"
  162. Assign 15 .
  163. Goto VERIFY
  164. EndIf
  165.  
  166. :CORRECT
  167. OutputAnswer "BBS name: " 20
  168. OutputAnswer "Phone number: " 21
  169. OutputAnswer "Maximum baud rate: " 22
  170. OutputAnswer "Features include: " 23
  171. OutputAnswer "                  " 24
  172. OutputAnswer "                  " 25
  173. OutputAnswer "                  " 26
  174. OutputAnswer "                  " 27
  175. OutputAnswer "Comments: " 28
  176. OutputAnswer "          " 29
  177. OutputAnswer "          " 30
  178. Commit
  179. Exec *c /c lister.bat add
  180. Assign 10 Added entry 
  181. Display "|Entry has been added."
  182. Display "||Press ENTER to continue.."
  183. WaitEnter
  184. Goto start
  185.  
  186. :ABORTED
  187. Assign 15 .
  188. Display "|Aborted."
  189. Display "||Press ENTER to continue.."
  190. WaitEnter
  191. Goto START
  192.  
  193. :end
  194. Assign 11 RA-Lister executed by A [3] on node  W ( J,  I)
  195. Assign 12 - Exited RA-Lister ( I)
  196. If 10 = "Added entry"
  197. OutputAnswer "" 11
  198. OutputAnswer "- Added BBS entry: " 20
  199. OutputAnswer "" 12
  200. Commit
  201. Exec *c /c lister.bat log
  202. EndIf
  203. If 10 = ""
  204. OutputAnswer "" 11
  205. OutputAnswer "" 12
  206. Commit
  207. Exec *c /c lister.bat log
  208. EndIf
  209. quit
  210.